home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 1, No. 10 (1982-06)(Softdisk)(Side A).zip / Softdisk Magazette Volume 1, No. 10 (1982-06)(Softdisk)(Side A).do / ABOUT.SOFTDISK.bas < prev    next >
BASIC Source File  |  1996-12-24  |  6KB  |  147 lines
  1. 5  REM  ABOUT.SOFTDISK
  2. 10  TEXT : HOME 
  3. 100  VTAB 2: HTAB 12: PRINT "SOFTDISK MAGAZETTE"
  4. 110  HTAB 13: PRINT "3811 ST. VINCENT"
  5. 120  HTAB 7: PRINT "SHREVEPORT, LOUISIANA 71108"
  6. 130  VTAB 6: HTAB 6: PRINT "$10 TO START     $5 PER MONTH"
  7. 140  VTAB 8: HTAB 11: PRINT "A MONTHLY PUBLICATION"
  8. 160  VTAB 11: PRINT "          PUBLISHER   AL TOMMERVIK"
  9. 165  VTAB 13: PRINT " CELEBRITY REPORTER   MARGOT TOMMERVIK"
  10. 170  VTAB 15: PRINT "             EDITOR   JIM MANGHAM"
  11. 180  VTAB 17: PRINT "             EDITOR   JOHN WRENHOLT"
  12. 185  VTAB 19: PRINT "CIRCULATION MANAGER   JUDI MANGHAM"
  13. 190  GOSUB 8000
  14. 195  GOTO 2000
  15. 200  HOME 
  16. 210  VTAB 2: HTAB 12: PRINT "MAILING PROCEDURE"
  17. 220  GOSUB 8050
  18. 230  VTAB 7: PRINT " SENDS $10 STARTUP FEE"
  19. 240  GOSUB 8000
  20. 250  GOSUB 8200
  21. 260  GOSUB 8100
  22. 270  VTAB 7: HTAB 20: PRINT "RECEIVES STARTUP FEE"
  23. 280  GOSUB 8000
  24. 290  VTAB 9: HTAB 20: PRINT "SENDS INITIAL ISSUE": HTAB 20: PRINT "IN REUSABLE MAILER"
  25. 300  GOSUB 8000
  26. 310  GOSUB 8200
  27. 320  GOSUB 8050
  28. 330  VTAB 7: PRINT " RECEIVES INITIAL ISSUE"
  29. 340  PRINT " IN REUSABLE MAILER"
  30. 350  GOSUB 8000
  31. 360  VTAB 10: PRINT " IMMEDIATELY SEND BACK MAILER"
  32. 370  PRINT " & $5 PAYMENT FOR NEXT ISSUE"
  33. 375  PRINT " (RETAIN DISKETTE)"
  34. 470  GOSUB 8000
  35. 480  GOSUB 8200
  36. 490  GOSUB 8100
  37. 500  VTAB 7: HTAB 21: PRINT "RECEIVES MAILER &"
  38. 510  HTAB 21: PRINT "PAYMENT FOR NEXT"
  39. 520  HTAB 21: PRINT "ISSUE"
  40. 530  GOSUB 8000
  41. 540  VTAB 11: HTAB 21: PRINT "SENDS MAILER & NEW"
  42. 550  HTAB 21: PRINT "ISSUE"
  43. 560  GOSUB 8000
  44. 570  GOSUB 8200
  45. 580  GOSUB 8050
  46. 590  VTAB 7: PRINT " RECEIVES MAILER &"
  47. 600  PRINT " NEW ISSUE"
  48. 610  GOSUB 8000
  49. 620  VTAB 10: PRINT " IMMEDIATELY SEND BACK"
  50. 630  PRINT " OLD DISKETTE IN MAILER"
  51. 640  PRINT " WITH $5 PAYMENT FOR"
  52. 650  PRINT " NEXT ISSUE"
  53. 655  PRINT " (RETAIN NEW DISKETTE)"
  54. 700  GOSUB 8000
  55. 710  GOSUB 8200
  56. 720  GOSUB 8100
  57. 730  VTAB 7: HTAB 21: PRINT "RECEIVES MAILER WITH";
  58. 740  HTAB 21: PRINT "OLD DISKETTE &"
  59. 750  HTAB 21: PRINT "PAYMENT FOR NEXT"
  60. 760  HTAB 21: PRINT "ISSUE"
  61. 770  GOSUB 8000
  62. 780  VTAB 12: HTAB 21: PRINT "SENDS MAILER & YET"
  63. 790  HTAB 21: PRINT "ANOTHER ISSUE"
  64. 800  GOSUB 8000
  65. 810  GOSUB 8200
  66. 820  VTAB 8: HTAB 8: PRINT "-- AND THE ";: FLASH : PRINT "BEAT";: NORMAL : PRINT " GOES ON --"
  67. 830  VTAB 12: PRINT " PLEASE SEND RETURNS BACK THE SAME DAY"
  68. 840  PRINT " YOU RECEIVE A MAILER."
  69. 870  PRINT : PRINT " BE A GROOVER AND GET IN THE SOFTDISK"
  70. 875  PRINT " GROOVE."
  71. 880  GOSUB 8000
  72. 882  VTAB 5: CALL  -868
  73. 885  GOSUB 8200
  74. 890  VTAB 4: PRINT " OUR ADDRESS & PREPAID POSTAGE PERMIT"
  75. 900  PRINT " IS ON THE FLIP SIDE OF YOUR ADDRESS"
  76. 910  PRINT " CARD."
  77. 920  PRINT " (PLASTIC BAG OPENS AT RED LINE)"
  78. 930  PRINT : PRINT " THE FIRST THING YOU SHOULD DO UPON"
  79. 940  PRINT " RECEIVING A NEW MAGAZETTE IS MAKE A"
  80. 950  PRINT " PERSONAL COPY OF IT FOR YOUR KEEPING."
  81. 960  PRINT : PRINT " THEN YOU HAVE A MONTH TO PLAY WITH"
  82. 970  PRINT " OUR DISKETTE & PLACE FEEDBACK"
  83. 980  PRINT " COMMENTS ON IT."
  84. 990  PRINT : PRINT " WHEN YOU GET A NEW ONE,"
  85. 1000  PRINT " SEND BACK THE OLD ONE,"
  86. 1010  PRINT " WITH PAYMENT FOR THE NEXT ONE."
  87. 1015  PRINT " ALWAYS KEEP A DISK TO RUN."
  88. 1017  PRINT " THAT'S THE WAY TO HAVE SOME FUN."
  89. 1020  GOSUB 8000
  90. 1030  GOTO 2000
  91. 2000  HOME : HTAB 12: PRINT "INFORMATION ABOUT"
  92. 2010  VTAB 10: HTAB 10: PRINT "1 = BACK ISSUES"
  93. 2030  VTAB 12: HTAB 10: PRINT "2 = MAILING PROCEDURE"
  94. 2040  VTAB 14: HTAB 10: PRINT "3 = FEEDBACK PROCESS"
  95. 2050  VTAB 16: HTAB 10: PRINT "4 = NONE OF THE ABOVE"
  96. 2060  VTAB 18: HTAB 3: PRINT "WHICH? ";: GET R$
  97. 2070  PRINT 
  98. 2080  IF R$ = "1" GOTO 3000
  99. 2100  IF R$ = "2" GOTO 200
  100. 2110  IF R$ = "3" GOTO 5000
  101. 2120  IF R$ = "4"  THEN  PRINT  CHR$(4);"RUN KICK.IT.OFF"
  102. 2130  GOTO 2060
  103. 3000  HOME : VTAB 6: HTAB 14: PRINT "BACK ISSUES"
  104. 3010  VTAB 10: PRINT "  WE ARE OFFERING BACK ISSUES FOR $8"
  105. 3020  PRINT : HTAB 8: PRINT "(YOU KEEP THE DISKETTE)"
  106. 3030  PRINT : PRINT "  THE FIRST AVAILABLE ISSUE IS OCT 81"
  107. 3035  PRINT : PRINT "     THERE WAS NO APRIL 82 ISSUE"
  108. 3040  GOSUB 8000: GOTO 2000
  109. 5000  HOME : HTAB 13: PRINT "FEEDBACK PROCESS"
  110. 5010  PRINT : PRINT "YOU ARRIVED AT THIS SCREEN BY FIRST"
  111. 5020  PRINT : PRINT "SELECTING 'ABOUT SOFTDISK' AND THEN"
  112. 5030  PRINT : PRINT "'FEEDBACK PROCESS'.
  113. 5040  PRINT : PRINT : PRINT "AFTER YOU EXIT 'ABOUT SOFTDISK' YOU"
  114. 5050  PRINT : PRINT "WILL BE GIVEN AN OPPORTUNITY TO SELECT"
  115. 5060  PRINT : PRINT "'ON WITH THE SHOW'.
  116. 5070  PRINT : PRINT : PRINT "'ON WITH THE SHOW' TAKES YOU INTO A"
  117. 5080  PRINT : PRINT "PRESENTATION OF THE MAIN BODY OF"
  118. 5090  PRINT : PRINT "SOFTDISK TEXT DATA."
  119. 5100  GOSUB 8000
  120. 5110  HOME : HTAB 13: PRINT "FEEDBACK PROCESS"
  121. 5120  PRINT : PRINT "ONCE YOU ARE VIEWING THE MAIN BODY OF"
  122. 5130  PRINT : PRINT "TEXT DATA YOU WILL NOTICE THAT THE"
  123. 5140  PRINT : PRINT "BOTTOM OF THE SCREEN PRESENTS YOU WITH"
  124. 5150  PRINT : PRINT "SOME OPTIONS."
  125. 5160  PRINT : PRINT "ONE OF THEM IS THE  V  OPTION."
  126. 5180  PRINT : PRINT "THE  V  OPTION ALLOWS YOU TO ENTER"
  127. 5190  PRINT : PRINT "COMMENTS.  YOUR COMMENTS WILL BE"
  128. 5200  PRINT : PRINT "WRITTEN TO THE DISK AND PROVIDE US WITH"
  129. 5210  PRINT : PRINT "FEEDBACK WHEN YOU RETURN YOUR DISKETTE"
  130. 5220  PRINT : PRINT "FOR ANOTHER ISSUE OF SOFTDISK."
  131. 5230  GOSUB 8000
  132. 5240  HOME : HTAB 13: PRINT "FEEDBACK PROCESS"
  133. 5250  PRINT : PRINT "YOU SHOULD ENTER YOUR COMMENTS ONE LINE"
  134. 5260  PRINT : PRINT "AT A TIME."
  135. 5270  PRINT : PRINT "HIT THE RETURN KEY AFTER EACH LINE YOU"
  136. 5280  PRINT : PRINT "ENTER."
  137. 5290  PRINT : PRINT "WHEN YOU FINISH YOUR REPLY AND WANT TO"
  138. 5300  PRINT : PRINT "CONTINUE READING THE MAGAZETTE JUST"
  139. 5310  PRINT : PRINT "HIT RETURN WITHOUT ENTERING ANY DATA."
  140. 5320  PRINT : PRINT "TO REVIEW OR CHANGE YOUR COMMENT YOU"
  141. 5330  PRINT : PRINT "SHOULD TAKE THE  V  OPTION FROM THE"
  142. 5340  PRINT : PRINT "SAME SCREEN AGAIN."
  143. 5350  GOSUB 8000: GOTO 2000
  144. 8000  FOR I = 1 TO 250: NEXT : VTAB 23: CALL  -868: HTAB 14: FLASH : PRINT "*";: NORMAL : PRINT " HIT RETURN ";: FLASH : PRINT "*";: NORMAL : INPUT " ";R$: RETURN 
  145. 8050  VTAB 5: HTAB 6: INVERSE : PRINT "SUBSCRIBER";: NORMAL : HTAB 27: PRINT "SOFTDISK": RETURN 
  146. 8100  VTAB 5: HTAB 6: PRINT "SUBSCRIBER";: HTAB 27: INVERSE : PRINT "SOFTDISK": NORMAL : RETURN 
  147. 8200  FOR I = 7 TO 20: VTAB (I): CALL  -868: NEXT : RETURN